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(e 51 HISTORY 
(3) gt Aap Nae 
(4) 0 MTHSCGLOG 


; Detailed Current Edit History 


G COMPLEX*16 Natural Logarithm 
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; 9 +09 $¢ yaa ives Macro V04-00 Page 
6 CMTHRTL.SRCJMTHCGLOG.MAR; 1 


COMPLEX*16 Natural Loger! she 
File: MTHCGLOG.MAR Edit: SBL1004 


ee 


COPYRIGHT (c) 1978 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. : 
ft 
® 
*® 
® 
® 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MATH LIBRARY 
"ABSTRACT: 
This module contains routine MTH$CGLOG - perform G COMPLEX*16 log 
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VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 20-July-1979 


MODIFIED BY: 
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GLOG G COMPLEX*16 Natural Logarithm P=1984 01:09:24 VAX/VMS Macro V04-00 
Ms STORY ; Detailed Curtent Edit abet "9-8 ety 94:97:86 MTHRTL.SRCJMTHCGLOG.MAR; 1 
-SBTTL HISTORY ; Detailed Current Edit History 
: ; Edit History 
4 $ 1-001 - Adapted from MTHSCLOG version 1-002. $B 20-July-1979 
000 3 1-002 = Change PUSHAB to PUSHAG. SBL 23-Aug-19 
0000 58 ; 1-003 = Change shared external references ts G* RNH e5~ -Sep-81 
0000 59 ; 1-004 = Use general mode addressing. SBL 30-Nov-1981 


Page (3) 
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ECLARATIONS ° patie yi 997386 MTHRTL.SRCJMTHCGLOG.MAR; 1 . &) 
} .SBTTL DECLARATIONS 
: ; INCLUDE FILES: | 
6 eo 
p 88 ; 
8 ; EXTERNAL SYMBOLS: 

00 .DSA L 

00 0 eEXTRN MTHSGATAN2 

00 71 -EXTRN MTHSCGABS 

900 te -EXTRN MTHSGLOG_R8 

900 7%; 

00 75 ; MACROS: 

000 16 : NONE 

000 7 

000 78 ; 

Bons 4 3 PSECT DECLARATIONS: 

00000000 81 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 

0000 Be 
0000 83 ; 
0000 84 ; EQUATED SYMBOLS: 
0000 = s«&5 
0000 8 : 
0000 87 ; OWN STORAGE: 
0000 88 ; NONE 
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6D  00000000°GF 9E MOVAB G*MTHSSJACKET_HND, (FP) 


set handler address to jacket 
handler 


50 08 AC 0 : RO => (arg) 
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ata 1: MTHRTL. SRE RCIM THCGLOG.MAR; 1 
: -SBTTL MTHSCGLOG 
;+¢ 
i 3 FUNCTIONAL DESCRIPTION: 
95 ; The Natural Logaritm of a complex number (r, i) is 
3 ; computed as follows: 
p 38 ; CLOG(arg) = (LOG(CABS(arg)), ATAN2(arg)) 
0 100 ; CALLING SEQUENCE: 
! : CALL MTHSCGLOG (result.wgc.r, arg.rgc.r) 
000 103: 
00 104 ; INPUT PARAMETERS: 
00000008 30 10g arg = 8 3 erga by reference, a G COMPLEX*16 
0000 107; . 
44 198 : IMPLICIT INPUTS: 
$009 110. a 
900 iW > OUTPUT PARAMETERS: 
00000004 0000 118 7 result = 4 ; Result by reference, a G COMPLEX*16 
B28 13 ; 3 value. 
0000 116 : IMPLICIT OUTPUTS: 
33 ii 
0000 119 > COMPLETION CODES: 
3 | : 9 : NONE 
09 0 1 : : SIDE EFFECTS: 
33 , | 7 3 Signals Reserved Operand if the input parameter is bad (-0.0) 
0000 125 ;-- 
$333 
O1FC 8 128 -ENTRY MTHSCGLOG, “M<R2,R3,R4,R5,R6,R7,R8> 
88 129 MTHSFLAG_JACKET 3; set up error handler 
3 
0 
009 
iy tow 
0 7F p 131 PUSHAG (RO)+ > push addr ") 
0 oD oy ¢ PUSHL R 3 push add 
eeeeedh 0s FB 1 1 CALLS #2, G*MTHSGATAN2 ; RO-R1 = GATAN2(ara) 
E 7D 8 134 MOVa . 7 oh ) ; Save ATAN2(arg) 
08 AC DD 8 135 PUSHL areta 3; Get tthe i 
00000000'GF 01 FB 3 1 $ CALLS CO ATHSCGABS 3; Get CABS( arp) 
0 "GF 16 1 JSB G-ATASELOG. RB 3; RO-R1 gets LOG(CABS(arg)) 
ac 0 2A 8 MOVL resultiM). R2 3; Address of result 
8s 3 D zS MOVa 3; Real part of result 
6 E 4 ¢ re move Sbyen (R2) : Imaginary part of result 


THSCGLOG 
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Macr 
SRC JMTHCGLOG.MAR; 1 (4) 


MTHSCGLOG G COMPLEX*16 Natural Logarithm =1383 91:09: 6% 
Symbol table -1984 11:21:06 
ARG = 00000008 
MTIHSSJACKET_HND teeeeeee Xx 01 
MTHSCGABS eeeeeere§ =X 600 
MTHSCGLOG 00000000 RG 1 
MTHSGATAN2 eeeecese § x 0 
MTHSGLOG_RB eeeeeere =X = =6(00 
RESULT = 00000004 
parma renames aman a e 
! Psect synopsis ! 
tees nsen acc ceecae + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-MTHSCODE 00000036 ( 54.) O1¢ 1.) PIC USR CON REL LCL SHR EXE 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:01.47 
Command processing 142 00:00:00.63 Bo #80 188 «08 
Pass 78 B3 288: 8-88 i SE 
Symbol table sort 0 00:00:00. 8 0:00:00.00 
Pass 2 40 00:00:00.4 00:00:01.95 
Symbol table output ¢ Shs BD 00:00:00.01 
Psect synopsis output BF 80: 0.01 Bp 120? 88- 48 
Cross-reference output 0 00:00:00.00 0:00:00.00 
Assembler run totals 296 00:00:01.79 00:00:10.24 


The _ working get Limit was 900 pages. 

2267 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 7 non-local and 0 local symbols. 
source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to define 1 macro. 


ee wre een mee ee oe omen wom mama} 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET .MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCGLOG/OBJ=OBJ$:MTHCGLOG MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRC 
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